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INTRODUCTION 


FORTRAN Extended 6000 version 3/7000 version 1 processes a scien¬ 
tific language for programming on Control Data Corporation® 6000 and 
7000 Series Computers under control of the SCOPE Operating System. 

This Instant provides a short reference tool for frequently used infor¬ 
mation. Detailed information on FORTRAN Extended and the other 
languages mentioned is available in the applicable reference manuals. 

FORTRAN STATEMENTS & CODING FORM 

FORTRAN Extended source programs consist of an ordered set of state¬ 
ments from which the compiler generates machine instructions and con¬ 
stants. Each line of a FORTRAN coding form corresponds to a punched 
card containing one statement line. Statements are written in the 
following columns: 





Column 

Content 




1-5 

Statement label 

Statements 



6 

Blank or zero 



7-72 

FORTRAN statement 




73-80 

Identification field 








f 

1-5 

Ignored 




6 

Non-zero, non-blank 

Continuations 

< 



FORTRAN character 




7-72 

Continued statement 



< 

73-80 

Identification field 






Comments 

J 

( 

1 

C or $ or * 

1 

( 

2-80 

Comments 


1 





CONTROL CARD FORMAT 

FTN.comments 

FTN ( Pl ,p 2 .P n > 

FTN. is equivalent to: 

FTN (I = I NPUT,L=OUTPUT,B=LGO,S=SYSTEXT,OPT=1, R=1) 
The parameter list may include the following options: 


m 


Control Card 
Option 

Usage 

Release Setting 

A 

Abort to EXIT(S) card if fatal 
errors encountered during 
compilation 

No abort 

B 

Produce object code file 

Object code on 
standard file 
(LGO) 

C 

Use COMPASS assembler for 
compiler generated code (almost 
trebles amount of central pro¬ 
cessor time for compilation) 

FORTRAN 
assembler is 
used 

D 

Debug mode of compilation 

No debug mode 

E 

Format file for editing (COM¬ 
PASS card images file is pro¬ 
duced with *DECK cards for 
each program unit, suitable as 
input for UPDATE) 

No file for 
editing 

G 

Compile and go option 

No compile and 
go 

l=lfn 

Select compiler input file 

lfn=l NPUT 

list=lfn 

Select compiler listing file (Ifn) 
and listing option (list): 

L List source code 

0 List COMPASS card images 

X List ANSI extension 

diagnostics 

N Suppress informative 

diagnostics 

R (equivalent to long reference 

map option R=2) 

lfn=OUTPUT 

list=L 

L 

No 

No 

No 

No 


€ 

« 

0 
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Control Card 
Option 

Usage 

Release Setting 

Reference 

Map Level 

R=0 

=1 

=2 

=3 

Kind of reference map: 

No map 

Short map (symbols, addresses, 
properties) 

Long map (short map, references 
by line numbers, DO-loop map) 
Long map, printed common block 
members and equivalence classes 

R = 1 unless 

L option = 0; 
then R = 0 

OPT=level 

Select level of optimization: 

0 lowest optimization 

1 slightly above FORTRAN 
Extended 2.0 optimization 

2 program unit flow analysis 
used in optimization 

OPT = 1 

ROUND=s 

s — * / + — 1-4 operators to 

indicate rounded arithmetic 

No rounding 

SYSEDIT=ss 

For system programmer usage: 
ss=FILES, form execution time 
input/output unit references 
through indirect search of low 
core table rather than by using en¬ 
try points and external references 

No search 


ss=IDENT, append a $ to 1 DENT 
name of recognized routines in 
addition to ENTRY point name. 

1 mplies a special selection for users 
of SEGMENT feature since seg¬ 
ments are specified by 1 DENT 
names 

No special 
selection 


SYSEDIT only is equivalent to 
SYSEDIT = FILES and IDENT 


T 

Maximum error checking in 
mathematical library routines 
(basic external functions) 

Maximum 
checking not 
carried out 

V 

Selects minimal I/O buffer 
allocation (513 word) for com¬ 
pilation. May increase compile 
time, but jobs with large numbers 
of declarative statements compile 
in smaller field length than other¬ 
wise 
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SOURCE DECK 



a* 


mmsm 


■■ 

llllllll 


FORTRAN statements 


FUNCTION RTSM (A,B) 


FORTR; 


PROGRAM 







md of record}^ 


FTNjG) 































FORTRAN COMPILATION, COMPASS 
ASSEMBLY & EXECUTION 


6 (end of file) 
8 / 


7 (end of record) 

i / a 


COMPASS source deck 

















I r> co 031 


LOAD & EXECUTE BINARY PROGRAM 



INPUT. 


REQUEST FILE. 














COMPILE & EXECUTE 
WITH RELOCATABLE BINARY DECK 



binary deck 


source deck 


PROGRAM ALFRED{!NPUT,OUTPUT,TAPE1,TAPE5,TAP 


( EXECUTE, 
f LOAD(LGO) 
LOAD( INPUT) 


REQUEST TAPE 1 





COMPILE ONCE & EXECUTE 
WITH DIFFERENT DATA DECKS 




iCUTION. 

VBRIAY 


source deck 








EXPRESSIONS 


Arithmetic, masking, relational, and logical operations may be specified 
for the evaluation of expressions. 


Arithmetic Expression using operands of types other than 

logical 

Masking Arithmetic expression using one of the operators: 

.OR. .AND. .NOT. 


Relational Arithmetic or masking expressions separated by 

relational operators 

Logical Logical variables, functions, constants, and rela¬ 

tional expressions separated by logical operators 


NAME TYPE 

Type of variable names, array names, and statement function names 
may be indicated implicitly or explicitly. 


Implicit typing: Determined by initial letter of name. 

Real: A-H, 0-Z. Integer: I, J, K, L, M, N 

Explicit typing: Determined by declaration with or without the 

prefix TYPE: 

REAL DOUBLE or DOUBLE PRECISION 
INTEGER LOGICAL 
COMPLEX ECS 


CONSTANTS 


Data Type 

Integer 

Real 

Double Precision 


Characteristics 

1-18 digits, 0-(2^ -1), no decimal point 

1-15 digits, with decimal point, optional exponent 
base 10 

1-29 digits, decimal point, optional exponent base 
10 which may be signed 
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Data Type 

Characteristics 



Complex 

Real part and imaginary part, 
optionally signed, real numbers 

decimal point. 

Octal 

1-20 octal digits with B suffix, no sign 
point 

or decimal 

Logical 

.TRUE. .T. .FALSE. .F. 
true is -1, false is all zero bits 



Hollerith 

nHf, nRf (right justified), nLf 

(left 

justified). 


n number of characters in string 

H left justified, blank fill 

R right justified, zero fill 

L left justified, zero fill 

f characters in string (embedded blanks inclu¬ 
ded); 1-10 in replacement statement, 1-150 
in FORMAT statement; DATA statement and 
parameter list of a call may extend through 
19 continuation lines 


VARIABLES & ARRAYS 


Data Type Variables Arrays 


Integer 

Implicit or explicit 

type single variable 

name 

Implicit or explicit 

type array name with 

subscripts in paren¬ 
theses 

Real 

Double Precision 

Explicit type single 

variable name 

_i 

Explicit type array 

name with sub¬ 
scripts in parentheses 

Complex 

Logical 


NAME: An alphabetic character followed by 0-6 alphanumeric 
characters. 
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SUBSCRIPTS AND ARRAYS 


A subscript is written as a list of subscript expressions. An array 
element is an alphanumeric identifier that is the name of an array, 
followed by up to three subscript expressions representing a single 
element within the array. A subscript expression may be any legal 
arithmetic expression. 

Subscript expressions are separated by a comma and the subscript is 
enclosed in parentheses. If the number of subscript expressions in a 
reference is less than the declared dimensionality, the compiler assumes 
missing subscripts have a value of one. 

A(2) = A(2,1) 

A(,2)=A A(1,2) illegal form 

A subscript expression may be missing from the right only; if a comma 
appears, it must be preceded and followed by a subscript expression. 

If the subscript list does not appear, all subscript expressions are as¬ 
sumed to be one, and an informative diagnostic is issued. If the sub¬ 
script expression is not integer, the value will be truncated to integer. 

Standard form: (constant * variable ± constant) 

For DIMENSION A(L,M,N) the location of A(i,j,k) with respect to 
A( 1,1,1) is determined by the formula: 

A+(i-1+L*(j-1+M*(k-1)))*e 

where e is the number of words occupied by each element of A. For 
double precision and complex, e = 2; otherwise, e=1. 


DATA DECLARATION AND STORAGE 

ALLOCATION 

Key: 

v Variable (all can be Vj (ij) also) 

i Integer variables or integer constants (maximum 3) 

x Common block name (may be null) 

a List of variable names 

k Data variable list (optionally DO-implied) 

d Data constant list 

r Data variable list 
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INTEGER v-|,V2,..., v n 
REAL v-| ,V2,..., v n 
DOUBLE PRECISION v-|,v 2 ,...,v n 
COMPLEX v v v 2 , ...,v n 
LOGICAL v-j, v 2' ■ ■ ■' v n 
tECS v-| ,V2, • • ■, v n 
tTYPE INTEGER v 1 ,v 2 ,...,v n 
tTYPE REAL v 1f v 2 ,...,v n 
tTYPE DOUBLE PRECISION v 1f v 2 ,...,v n 
tTYPE COMPLEX v 1f v 2 ,...,v n 
tTYPE LOGICAL v 1f v 2 ,...,v n 
tTYPE ECS v 1 ,v 2 ,...,v n . 

DIMENSION v-, (i-,),v 2 (i 2 ),. - -, v n (i n ) 
COMMON /x-j/a-j/... /x n /a n 
EQUIVALENCE (k|), (k 2 ),. = •, (k n ) 

DATA k-j/d-j/, k 2 /d 2 /.k n /d n / 

tDATA (r 1 =d 1 ),(r 2 =d 2 ),..., (r n =d n ) 


^ permitted non-ANSI form 


REPLACEMENT STATEMENT 

v Variable or array element 
e Arithmetic, logical, or masking expression 
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CONTROL STATEMENTS 


Control statements alter sequential execution of statements, perform 
tests and iterations, and terminate subprograms and programs. 

Form _Example_ 


DO 

DO n i = m 1 ,m 2 ,m 3 DO 50 K = 3,18,6 

DOni = m 1 ,m 2 DO50K = 3,18 

n Terminal statement label 
i Integer control variable 
m-| Initial value 
m 2 Terminal value 
m 3 Incremental (maximum 
value of running index is 
2 17 - 2 ) 

If m 3 is omitted, a value of one 
is assumed. 


IF 

IF (e)k 1 ,k 2 ,k 3 IF (J-M**2)5,15,2 

e Variable or arithmetic 
expression of integer, real, 
double precision, or com¬ 
plex type 

k Statement labels 
e < 0 control transfers to k-j 
e = 0 control transfers to k 2 
e > 0 control transfers to k 3 

IF (e)k 1 ,k 2 IF (X/(D**4))6,14 

e Masking or arithmetic 
expression 

e =£ 0 control transfers to k-j 
e = 0 control transfers to k 2 


ANSI equivalent is: 
I F(e)k 1 ,k 2 ,k 1 
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Form 


Example 


IP ( e )s IF (X.LE.B)GO TO 73 

e Logical expression 
s Any executable statement 
except DO or logical IF. 

If e is false, s is not executed; 
if e is true, s is executed. 

IF (e)k 1f k 2 IF (ZR .GT. F)31,35 

e Logical expression 
k Statement labels 
If e is true, transfer to k^; 
if e is false, transfer to k 2 

ANSI equivalent is: 

IF (ZR .GT.F)G0T031 
GO TO 35 


GO TO 

GO TO k GO TO 500 

k Statement label 


ASSIGN k TO i ASSIGN 25 TO I 

k Executable statement label 


i Integer variable 
then 

GO TO i,(k 1 ,k 2 .k n ) ASSIGN 7 to JNP 

k Statement labels 

i Integer variable; must con- GO TO JNP,(4,2,7) 

tain value assigned by pre- 7 DKW(K) = DKW(K+5) 
ceding ASSIGN statement 
and be a label in list. 


When i < 0 or i > maximum, a 
fatal error occurs at execution. 


GO TO (k 1# k 2 ,...,k n ) f i GO TO (3,7,4,9),JL 

k Statement labels 
i Variable or expression 
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Form 


Example 

CONTINUE 


CONTINUE (usually preceded by 100 CONTINUE 
statement label) 



PAUSE 

PAUSE 

PAUSE 

PAUSE n 

PAUSE 23456 

n String of 1-5 octal digits 



STOP 

STOP 

STOP 

STOP n 

STOP 55675 

n String of 1-5 octal digits 
without a B suffix 



CALL 

CALL s (a-j ,a 2 , . ..,a^) 

CALL X (A,B,C,D) 

CALLS 

CALL X 

CALLs(a 1 ...a n ),RETURNS(b 1 

...b n ) CALL X (A,B),RETURNS(35,62) 

CALLs, RETURNS (b-,,b 2 ,... 

,b n ) CALL X, RETURNS (5,9) 

s Subroutine name 


a Actual parameters 


b Statement labels in calling 
program or subprogram 


RETURN 

RETURN 

RETURN 

RETURN a 

RETURN CHI 

a Parameter in RETURNS list 


END 


END (only characters on card; END 
anywhere in columns 7-72) 
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INPUT/OUTPUT 


Input/output statements control the flow of data. Two modes.are 
possible: formatted (coded) and unformatted (binary). 

Parameters 

u Identifies I/O unit; integer constant or simple integer variable 
f Identifies format specification; FORMAT label or array name 
k I/O list of data to be transferred 


Formatted Input/Output 


Form 

Example 

READ (u,f)k 

READ (u,f) 

tREAD f,k 

tREAD f 

READ (10,15)A,B,CF,R 

READ (1,4) 

READ 10,LISTX,BLOK,WEB 

READ 25 

WRITE (u,f)k 
WRITE (u,f) 

WRITE (10,15)B,(A(I),1,1=1,100),C,X,Y,Z 

WRITE (14,50) 

tPRINT f,k 

tPRINTf 

PRINT 12,ADS,KLM 

PRINT 25 

tPUNCH f,k 

tPUNCHf 

PUNCH 30,HITE 

PUNCH 50 

^Non-ANSI forms 

NAMELIST 

Form 

Example 

NAMELIST/y-j/a^ ../y n /a n NAMELIST/X1/R1,R3/X2/R2 

y NAMELIST name NAMELIST/SL01/D1 ,D2,L5 

a List of variables or array names 


Forms of input data for use with namelist 

$NAME V = C J = 52 

a = d-, ,...,dj B = 12,5.6,7*32 

a(n) = d 1 ,...,d m XAP (6,9) = 73.2E4,45,9*21 

NAME Corresponds to y (above) 
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Form Example 


Forms of input data for use with namelist (Continued) 

v Variable name 

c Constant 

a Array 

n Integer constant subscript 

d Simple constants or repeated 

constants of form k*c where 
k is repetition factor 

Namelist I/O 


Read (u,y) 

READ (5,XI) 

Write (u,y) 

WRITE (10,CONTS) 

Read y 

READ SECD 

Print y 

PRINT ADDED 

Punch y 

PUNCH TRY 14 

Unformatted Input/Output 


Form 

Example 

READ (u)k 

READ (35)DATA,INFO 

READ (u) 

READ (10) 

WRITE (u)k 

WRITE (15) CAN,LOCA,PLP 

WRITE (u) 

WRITE (5) 

REWIND u 

REWIND M or REWIND 3 

BACKSPACE u 

BACKSPACE 1 or BACKSPACE 10 

ENDFILE u 

ENDFILEJ or ENDFILE9 

ECS I/O 


CALL READEC (a,b,n) 

CALL READEC (D,J(4,1,3),17) 

CALL WRITEC (a,b,n) 

CALL WRITEC (XY,G f 50) 


a Variable or array element 

in central memory 
b Variable or array element 

in ECS common block 
n Integer constant or integer 

expression 
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Form 


Example 


Mass Storage I/O 

CALL OPENMS (u,ix,l,p) CALL OPENMS (1,INDEX,100,0) 

CALL READMS (u,fwa,n,i) CALL READMS (1,RECORDS,IND) 

CALL WRITMS (u,fwa,n f i) CALL WRITMS (1,RECORD,N,IND) 

CALL STINDX (u,ix,l) CALL STINDX (1 ,WIND,50) 

u Logical unit number 
ix First word address of index 
(in CM) 

I Length of index 

I > 2 (number of index entries) 

+1 for name index 
I > number of entries+1 for 
number index 
fwa First word address 
n Number of CM words to be 
transferred 

i Record number/cell address 
containing record name or 
number 


Buffered I/O 

BUFFER IN (u,p)(fwa,lwa) BUFFER IN (1,1)(A(1),A(LEN)) 
BUFFER OUT (u,p)(fwa,lwa) BUFFER OUT (l,J)(B(L1 ),B(L2)) 
u Logical unit number 
p Recording mode 
fwa First word address 
Iwa Last word address 


Encode/Decode Statements 

ENCODE (n,f,A)k ENCODE (30,2,BETA)X,Y 

DECODE (n,f,A)k DECODE (15,1,DELTA)R5,C7 

n Number of characters in 

record ((n+9)/10 words long) 
f FORMAT statement 

A Identifier, variable, or array 

which supplies starting 
location 
k I/O list 
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DEBUGGING FACILITY 

The debugging mode of compilation, along with the source cross- 
reference map selection, is provided specifically to aid in the develop¬ 
ment or conversion of programs. In the debugging mode of compilation, 
a programmer can establish a record of selected operations as they are 
performed in the execution of his program. This mode facilitates 
debugging from a source listing, and perhaps a source cross-reference 
map; if core dumps are required, interpretation is much easier. 

Features provided with the debugging mode of compilation: 

Array bounds checking 

Program flow tracing 

Call and return tracing 

Function call and value returned tracing 

Stores checking 

Assigned GO TO checking 

Partial execution of routines containing fatal errors 


The debugging mode is selected by the option D on the FTN control 
card. In this mode, debugging selection cards are recognized. If 
this mode is not specified, debugging selection cards are treated as 
comments. 

In the debugging mode, a program is compiled so that specified checks 
can be performed during execution; however, execution will stop when 
a fatal error is detected. 

When a program is compiled in debug mode, 12000g words will be 
required beyond the minimum field length for non-debug mode 
compilation. To execute, 2500g words beyond the minimum will be 
required. 
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Individual Debug Cards Interspersed in Program Unit 


Debug 

Cards 


Debug 

Cards 



This positioning is especially useful when a new program is run for the 
first time and the accuracy of specific areas, such as array bounds, 
is in doubt. 
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Placed Immediately After Program Name Card and 
Before Specification Statements 



All statements in program unit will be debugged (unless limiting bounds 
are specified in the debug deck), but no statements in other program 


units will be debugged. Especially useful when several program units 


are known to be free of bugs but one unit is new or known to have b 
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Placed Immediately in Front of First Source Line 
(When D file is same as source input file) 



All program units (Program A and Subroutine B) will be debugged 
(unless exclusive program units are specified in the debug deck). 
Particularly useful when a program is run for the first time, since it 
ensures that all program units will be debugged. 

















Debug Deck on Separate File (External Debug Deck) 




All program units are debugged (unless exclusive program units are 
specified in the deck). Several jobs can be debugged using the same 
debugging deck. 
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Debugging statements follow all normal FTN formation rules, with the 
additional requirement that columns 1 and 2 of each statement line, 
including continued statements, must contain C$. Columns 3-5 of 
continuation lines must be blank. If no parameters are specified, all 
applicable statements are checked except STORES. 


Name 

Function 

Format 

DEBUG 

Initiates debugging; 
must begin with this 
statement 

C$ DEBUG(name 1 ,..., name n ) 

C$ DEBUG 

AREA 

Designates specific 
area to be checked in 
a program unit. 

C$ DEBUG 

C$ AREA(bounds-|),...,(bounds p ) 

or 

C$ DEBUG(name 1 ,..., name n ) 

C$ AREA/name-|/(bounds), 

.. ./name n /(bounds),... 

CALLS 

Traces calls to and 
returns from specified 
subroutines. 

C$ CALLS(a-j.a n ) 

C$ CALLS 

FUNCS 

Traces usage of 
functions in a program 
unit. 

C$ FUNCS(a-,.a n ) 

C$ FUNCS 

GOTOS 

Assures that the selected 
statement numbers are 
valid when executed in 
an assigned GO TO. 

C$ GOTOS 

NOGO 

Suppresses partial execu¬ 
tion of a compiled 
routine whenever a 
fatal compilation error 

occurs. 

C$ NOGO 

STORES 

Records stores into 
specified variables as a 
result of replacement 
statements; 

C$ STORES(c-| , C 2 ,. ■ ■,c n ) 
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Name 

Function 

Format 

STORES 

(Cont) 

c Can be variable 

names or relational 
expressions in either 
of the forms: 

variable .relational operator, constant 


( .valid, (out of range or indefinite) 
variable < .range, (out of range) 
l .indef. (indefinite) 

TRACE 

Produces a message for 
each intraprogram 
transfer in control at a 
DO-nest level < level 
specified. 

C$ TRACE(level) 

C$ TRACE 

OFF 

Suppresses interspersed 
debugging statements 
at compilation time. 

C$OFF(xi.x n ) 

C$ OFF 


CROSS REFERENCE MAP 

The cross reference map produced of all programmer created symbols 
in a program unit is determined by the R option on the control card. 


R = 0 No map 

= 1 Short map (symbols, addresses, properties) 

= 2 Long map (short map, references by line number, 
and DO-loop map) 


= 3 Long map and printout of common block 
members and equivalence classes 


Unspecified Implies R = 1 


The default option is R = 1 unless the L option equals 0; then R = 0. 
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FUNCTIONS 


Intrinsic Function 


Argument/ Function 

ABS(x) 

Absolute value 

Real/real 

AIMAG(c) 

Imaginary part of 
complex argument 

Complex/real 

AINT(x) 

Truncation 

Real/real 

AMAX0(i 1 r i 2 _) 

Maximum argument 

Integer/real 

AMAX1 (x-j ,x 2 ,...) 

Maximum argument 

Real/real 

AMIN0(i 1 , i 2 ,...) 

Minimum argument 

Integer/real 

AMIN(x-| ,x 2 ,...) 

Minimum argument 

Real/real 

AMOD(x-| , x 2 ) 

x-j modulo x 2 

Real/real 

AND(x-| ,x 2 ) 

Logical product 

Single word 

CMPLX(x-, ,x 2 ) 

x-j + ix 2 

Real/complex 

COMPL(x) 

Complement of x 

Single word 

CONJG(c) 

Conjugate of c 

Complex/complex 

DABS(x) 

Absolute value 

Double/double 

DIM(x-j , x 2 ) 

x-j - Min(x-j , x 2 ) 

Real/real 

DBLE(x) 

Conversion 

Real/double 

DMAX1(d 1 ,d 2 ,...) 

Maximum argument 

Double/double 

DMIN1(d 1 , d 2 ,...) 

Minimum argument 

Double/double 

DMOD(d 1 ,d 2 ) 

d-j modulo d 2 

Double/double 

DSIGN(d-j ,d 2 ) 

Sign d 2 times d-j 

Double/double 

FLOAT(i) 

Conversion 

Integer/real 
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Intrinsic Function 


Argument/Function 


m 


IABS(i) 

Absolute value 

Integer/integer 

IDIM0-] ,i 2 ) 

i-| - Min(i^ , i 2 ) 

Integer/integer 

IDINT(d) 

Conversion 

Double/integer 

IFIX(x) 

Conversion 

Real/integer 

INT(x) 

Truncation 

Real/integer 

ISIGN(i q ,i 2 ) 

Sign i 2 times i-j 

1 nteger/i nteger 

MASK(i) 

Form i bit mask, 
left adjusted 

Integer/octal 

MAX0(ii ,i 2 ,...) 

Maximum argument 

Integer/integer 

MAXRx-, ,x 2 ,...) 

Maximum argument 

Real/integer 

MIN0(i 1 ,i 2 ,...) 

Minimum argument 

Integer/integer 

M1N1 (x q ,x 2 ,...) 

Minimum argument 

Real/real 

MOD(ii , i 2 ) 

i-| modulo i 2 

Integer/integer 

OR(x 1 ,...,x n ) 

Logical sum 

Single word 

REAL(c) 

Real part of complex 
argument 

Complex/real 

SIGN (xi ,x 2 ) 

Sign x 2 times x-| 

Real/real 

SHIFT(i-, ,i 2 ) 

Shift i-| , i 2 bit positions: 
left circular if i 2 
positive, right with 
sign extension if i-j 
negative 

i-j: Single word 
i 2 : Integer 

SNGL(d) 

Conversion, unrounded 

Double/real 


€ 
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External Function 


Argument/ Function 


ACOS(x) 

Arccosine 

Real/real 

ALOG(x) 

Log base e 

Real/real 

ALOGIO(x) 

Log base 10 

Real/real 

ASIN(x) 

Arcsine 

Real/real 

ATAN(x) 

Arctangent 

Real/real 

ATAN2(x 1 ,x 2 ) 

Arctangent x-|/x 2 

Real/real 

CABS(c) 

Modulus 

Complex/real 

CCOS(c) 

Complex cosine 

Complex/complex 

CEXP(c) 

Complex exponent 

Complex/complex 

CLOG(c) 

Complex log 

Complex/complex 

COS(x) 

Cosine 

Real/real 

CSIN(x) 

Complex sine 

Complex/complex 

CSQRT(c) 

Complex square root 

Complex/complex 

DATAN(d) 

Double arctangent 

Double/double 

DATAN2(d 1 ,d 2 ) 

Double arctangent 
d-j /d 2 

Double/double 

DATE(x) 

Date 

Octal/Hollerith 

LOCF(x) 

Address of argument x 

Symbolic/integer 

SECOND(x) 

CPU seconds 

Real/real 

SIN(x) 

Sine 

Real/real 
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External Function 


Argument/F unction 


SQRT(x) 

Square root 

Real/real 

TAN(x) 

Tangent 

Real/real 

TANH(x) 

Hyperbolic tangent 

Real/real 

TIME(x) 

Time of day 

Octal/Hollerith 

UNIT(i) 

Buffer unit i status 

-1 = Ready, no error 

0 = EOF, last operation 

1 = Parity error 

Integer/real 

EOF(i) 

0 = No EOF 

Integer/real 

LEGVAR(x) 

Variable characteristic 

-1 = Indefinite 

0 = Out of range 

1 = Normal 

Real/integer 

IOCHEC 

Non-buffer parity 

0 = No parity error 

Integer/integer 

LENGTH(i) 

Number of words read 
on previous I/O request 
on unit i after BUFFER 

IN 

Integer/integer 

DATE(x) 

Current date 

Dummy/Hollerith 

DCOS(d) 

Double cosine 

Double/double 

DEXP(d) 

Double exponent 

Double/double 

DLOG(d) 

Double natural log 

Double/double 

DLOGIO(d) 

Double log base 10 

Double/double 
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External Function 


Argument/Function 

DSIN(d) 

Double sine 

Double/double 

DSQRT(d) 

Double square root 

Double/double 

EXP(x) 

e to the xth power 

Real/real 

RANF(x) 

Random number 
generator 

Dummy/real 


STATEMENT FUNCTION 

f(a-| ,a 2 ,...,a n ) = e 
f Function name 
a Formal parameters 
e Expression 

Statement functions are compiled in line. 

F(P1 ,P2) = P1*P2+P1/P2+CON 

A = F(A,3.0)+B 
is equivalent to writing: 

A = (A*3.0+A/3.0+CON)+B 


LIBRARY SUBROUTINES 

DISPLA (nHname,x) 
n < 10; x may be real or integer 

Display name and value in dayfile 

EXIT 

Terminate execution 

RANGET(x) 

Current value RANF 
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RANSET(x) 

Initial value RANF 

SECOND(x) 

CP time used 

REMAR K(nH message) 
message < 40 characters 

Dayfile message 

SLITE(i) 

Sense light on 

SLITET(iJ) 
i Sense light 

j Condition: 1 On 

0 Off 

Sense light test 

SSWTCH(i, j) 

i Sense switch 

j Condition: 1 Down - on 

2 Up- off 

Sense switch test 

OPENMS(u,ix,L,p) 

Mass storage I/O 

ERRSET(a, b) 

Set maximum number of errors 
allowed in input data before fatal 
termination 

READMS(u,fwa,n,i) 

Read mass storage 

WRITMS(u,fwa,n,i) 

Write mass storage 

STINDX(u,ix,L) 

Store index 


u Logical unit number 

ix First word address of index in central memory 
L Length of index 


L > 2 (number of entries) + 1 for name index 
L > number of entries + 1 for number index 

P Type of index 
1 for name index 
0 for number index 

fwa First word address of record in central memory 
n Number of central memory words to transfer 

i Record number or location of record name 

a Error count 

b Maximum number of errors in input data 
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SUBPROGRAM STATEMENTS 


Key: 

s Symbolic name 
fj Filename 
f Function name 
a Formal/actual parameters 

b Formal/actual returns list parameters 

v Subroutine or function name 

PROGRAM s 

PROGRAM s(f, ,f 2 ,...,f n ) 

SUBROUTINE s 
SUBROUTINE s (a q ,a 2 ,...,a n ) 

SUBROUTINE s, RETURNS (b-, f b 2 ,... b m ) 

SUBROUTINE s (a 1 , a 2 a n ), RETURNS (b 1 ,b 2 ,...,b m ) 
FUNCTION f(a-, ,a 2 ,...,a n ) 

REAL FUNCTION f (a-, ,a 2 ,...,a n ) 

DOUBLE FUNCTION f (a-, ,a 2 ,...,a n ) 

COMPLEX FUNCTION f (a 1 , a 2 ,..., a n ) 

INTEGER FUNCTION f (a q ,a 2 ,... f a n ) 

LOGICAL FUNCTION f(a 1 ,a 2 .a n ) 

DOUBLE PRECISION FUNCTION f (a-, ,a 2 .a n ) 

ENTRYs 
BLOCK DATA 
BLOCK DATAs 
EXTERNAL v 1 ,v 2 ,...v p 


Inter-Subroutine Statements 


CALL s 

CALL s (a 1 ,a 2 ,... ,a m ) 

CALLS, RETURNS (b-, ,b 2 .b m ) 

CALLS, (a 1 ,a 2 ,...,a n ), RETURNS (b q ,b 2 ,...,b m ) 

RETURN 

RETURN b 


37 



7000 DIFFERENCES 


ECS 

READEC 

WRITEC 

Mass Storage I/O 

7000 File Buffers 

Segment Feature 
Vertical Spacing 

ERRSET (a,b) 

Labeled Tapes 


Refers to large core memory (LCM) where ECS 
variables will reside. 

Operate on large core memory and small core 
storage (SCM) in the same manner as 6000 ECS 
and central memory. 

A 30-bit index is used for random file processing 
instead of the 24-bit index of the 6000 series. 

If no parameter is specified, a buffer size of 412 
octal is assumed. 

Not supported for version 1. 

For many characters, including A, B, 2, and minus, 
determined by input/output station serving 7000 
SCOPE version 1. 

Library subprogram added. It sets the maximum 
number of errors, b, allowed in input data before 
fatal termination. Error count is kept in a. 

Not supported for version 1. 
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